SUBROUTINE SFDEC(FI,TET,h,X,Y,Z,fi0,tet0)
REAL PI/3.1415926/,rz/6371./
PER=PI/180.
TET1=TET* PER
r=rz-h
Y1=R*COS((FI-fi0)*PER)*COS(TET1)
X=R*SIN((FI-fi0)*PER)*COS(TET1)
Z1=R*SIN(TET1)
T=tet0*PER
Y=-Y1*SIN(T)+Z1*COS(T)
Z=Rz-(Y1*COS(T)+Z1*SIN(T))
RETURN
END
